<% Head() Server.ScriptTimeout=9999999 dim admin_flag admin_flag="12,19" if not Dvbbs.master or instr(","&session("flag")&",",",12,")=0 or instr(","&session("flag")&",",",19,")=0 then Errmsg=ErrMsg + "

本页面为管理员专用，请登录后进入。

您没有管理本页面的权限。" dvbbs_error() End If dim tmprs dim body call main() Footer() sub main() %> <% If request("action")="updat" Then If request("submit")="更新分版面数据" Then call updateboard() ElseIf request("submit")="修 复" Then call fixtopic() ElseIf request("submit")="清空在线用户" Then call Delallonline() ElseIf request("submit")="更新收藏夹" Then call Updatebm() Else call updateall() End If If founderr Then response.write errmsg Else response.write body End If ElseIf request("action")="fix" Then Call Fixbbs() If founderr Then response.write errmsg Else response.write body End If ElseIf request("action")="delboard" then if isnumeric(request("boardid")) then Dvbbs.Execute("update dv_topic set boardid=444 where boardid="&request("boardid")) for i=0 to ubound(AllPostTable) Dvbbs.Execute("update "&AllPostTable(i)&" set boardid=444 where boardid="&request("boardid")) next end if response.write "" elseif request("action")="updateuser" then %> <% elseif request("action")="updateuserinfo" then if request("submit")="重新计算用户发贴" then call updateTopic() elseif request("submit")="更新用户等级" then call updategrade() else call updatemoney() end if if founderr then response.write errmsg else response.write body end if else '主题数,帖子数,用户数,今日贴,昨日贴,总固顶,最后注册 %> <% end if %>

论坛数据处理
注意事项	下面有的操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。
清空论坛数据成功，请返回更新帖子数据！
更新用户数据
重新计算用户发贴	执行本操作将按照当前论坛数据库发贴重新计算所有用户发表帖子数量。
开始用户ID	用户ID，可以填写您想从哪一个ID号开始进行修复
结束用户ID	将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大
更新用户等级	执行本操作将按照当前论坛数据库用户发贴数量和论坛的等级设置重新计算用户等级，本操作不影响等级为贵宾、版主、总版主的数据。
开始用户ID	用户ID，可以填写您想从哪一个ID号开始进行修复
结束用户ID	将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大
更新用户金钱/经验/魅力	执行本操作将按照当前论坛数据库用户的发贴数量和论坛的相关设置重新计算用户的金钱/经验/魅力，本操作也将重新计算贵宾、版主、总版主的数据 注意：不推荐用户进行本操作，本操作在数据很多的时候请尽量不要使用，并且本操作对各个版面删除帖子等所扣相应分值不做运算，只是按照发贴和总的论坛分值设置进行运算，请大家慎重操作，而且本项操作将重置用户因为奖励、惩罚等原因管理员对用户分值的修改。
开始用户ID	用户ID，可以填写您想从哪一个ID号开始进行修复
结束用户ID	将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大
更新论坛数据
更新总论坛数据	主题数 帖子数 用户数 今日帖 昨日帖 总固顶 最后注册 这里将重新计算整个论坛的帖子主题和回复数，今日帖子，最后加入用户等，建议每隔一段时间运行一次。
更新分版面数据	这里将重新计算每个版面的帖子主题和回复数，今日帖子，最后回复信息等，建议每隔一段时间运行一次。
更新论坛收藏夹	这里将重新整理论坛的收藏夹，删除不存在用户的收藏记录，重新指向被移动的帖子收藏地址，删除已被删除的帖子收藏记录。
修复帖子(修复指定范围内帖子的最后回复数据)
开始的ID号	帖子主题ID，可以填写您想从哪一个ID号开始进行修复
结束的ID号	将更新开始到结束ID之间的帖子数据，之间的数值最好不要选择过大
修正贴子UBB标签(修复指定范围贴子UBB标签)
开始的ID号	帖子主题ID，可以填写您想从哪一个ID号开始进行修复
结束的ID号	将更新开始到结束ID之间的帖子数据，之间的数值最好不要选择过大
新老贴的标识日期	(格式：YYYY-M-D) 就是论坛升级到v7.0的日期，如果不填写，一律按老贴处理
去掉贴子中的HTML标记	是 否   选是的话，贴子中的HTML标记将会自动被清除，有利于减少数据库的大小，但是会失去原来的HTML效果。

<% end sub Sub updateboard() '先按照所有版面ID得出帖子数，然后计算各个有下属论坛的帖子总和 Dim allarticle Dim alltopic Dim alltoday Dim allboard Dim trs,Esql,ars Dim Maxid Dim LastTopic,LastRootid,LastPostTime,LastPostUser Dim LastPost,uploadpic_n,Lastpostuserid,Lastid Dim ParentStr Dim C,C1,C2 Dim reBoard_Setting,BoardTopStr,IsGroupSetting Dim UserAccessCount,UpGroupSetting,ii Dim Slastpost ii=0 '设置打开数据时间 conn.CommandTimeout=3600 '获得要更新的总数 If IsNumeric(request("boardid")) And request("boardid")<>"" Then Set Rs=Dvbbs.Execute("Select Count(*) From [Dv_board] Where BoardID="&request("boardid")) C1=rs(0) If Isnull(C1) Then C1=0 Else Set Rs=Dvbbs.Execute("Select Count(*) From [Dv_board]") C1=rs(0) If Isnull(C1) Then C1=0 End If Set Rs=Nothing %>

下面开始更新论坛版面资料，共有<%=C1%>个版面需要更新 0%

<% Response.Flush '排序按照Child和Orders，以便先更新下级论坛的数据才循环到上级版面，这时上级版面读取的就是下级版面的最新数据 If IsNumeric(request("boardid")) And request("boardid")<>"" Then Set Rs=Dvbbs.Execute("Select BoardID,BoardType,Child,ParentStr,RootID,Board_Setting,BoardTopStr,IsGroupSetting From Dv_Board Where BoardID="&Request("BoardID")) Else Call Boardchild() '统计更新下属论坛个数 YZ-2004-2-26注 Set Rs=Dvbbs.Execute("Select BoardID,BoardType,Child,ParentStr,RootID,Board_Setting,BoardTopStr,IsGroupSetting From Dv_Board Order by Child,RootID,Orders Desc") End If Dim SQL If Not Rs.EOF Then SQL=Rs.GetRows(-1) Set Rs=Nothing For i=0 to UBound(SQL,2) 'Do While Not Rs.Eof reBoard_Setting=Split(SQL(5,i),",") AllBoard = 0 '所有主题和帖子 Set Trs=Dvbbs.Execute("Select Count(*),Sum(Child) From Dv_Topic Where BoardID="&SQL(0,i)) AllTopic=Trs(0) AllArticle=Trs(1) If IsNull(AllTopic) Then AllTopic = 0 If IsNull(AllArticle) Then AllArticle = 0 AllArticle = AllArticle + AllTopic Set Trs=Nothing '所有今日贴 If IsSqlDataBase = 1 Then Set Trs=Dvbbs.Execute("Select Count(*) From "&Dvbbs.NowUseBBS&" Where BoardID="&SQL(0,i)&" and datediff(d,dateandtime,"&SqlNowString&")=0") Else Set Trs=Dvbbs.Execute("Select Count(*) From "&Dvbbs.NowUseBBS&" Where BoardID="&SQL(0,i)&" and datediff('d',dateandtime,"&SqlNowString&")=0") End If AllToday=Trs(0) Set Trs=Nothing If IsNull(AllToday) Then AllToday=0 '最后回复信息 Set Trs=Dvbbs.Execute("Select Top 1 LastPost From Dv_Topic Where BoardID="&SQL(0,i)&" Order by LastPostTime Desc") If Not (Trs.Eof And Trs.Bof) Then LastPost=Replace(Dvbbs.Replacehtml(Trs(0)&""),"'","''") Else LastPost="无$0$"&Now()&"$无$$$$" End If Set Trs=Nothing '更新当前版面数据 SLastPost = Split(LastPost,"$") If Ubound(SLastPost) < 7 Then LastPost = LastPost & "$" Dvbbs.Execute("Update [Dv_board] Set PostNum="&AllArticle&",TopicNum="&AllTopic&",TodayNum="&AllToday&",LastPost='"&Dvbbs.ChkBadWords(LastPost)&"' Where BoardID="&SQL(0,i)) '如果当前版面有下属论坛，则更新其数据为下属论坛数据 If SQL(2,i)>0 Then '帖子总数，主题总数，今日贴总数，下属版面数 If SQL(3,i)=0 Then ParentStr=SQL(0,i) 'Set Trs=Dvbbs.Execute("Select Sum(PostNum),Sum(TopicNum),Sum(TodayNum),Count(*) From Dv_board Where (Not BoardID="&SQL(0,i)&") And RootID="&SQL(0,i)) Else ParentStr=SQL(3,i) & "," & SQL(0,i) 'Set Trs=Dvbbs.Execute("Select Sum(PostNum),Sum(TopicNum),Sum(TodayNum),Count(*) From Dv_board Where ParentStr Like '%"&ParentStr&"%'") End If Set Trs=Dvbbs.Execute("Select Sum(PostNum),Sum(TopicNum),Sum(TodayNum),Count(*) From Dv_board Where ParentStr Like '%"&ParentStr&"%'") If Not (Trs.Eof And Trs.Bof) Then '如果该版面允许发贴，则帖子数应该是该版面贴数+下属版面帖子数 If reBoard_Setting(43)="0" Then If Not IsNull(Trs(0)) Then AllArticle = Trs(0) + AllArticle If Not IsNull(Trs(1)) Then AllTopic = Trs(1) + AllTopic If Not IsNull(Trs(2)) Then AllToday = Trs(2) + AllToday If Not IsNull(Trs(3)) Then AllBoard = Trs(3) + AllBoard Else AllArticle=Trs(0) AllTopic=Trs(1) AllToday=Trs(2) AllBoard=Trs(3) If IsNull(AllArticle) Then AllArticle=0 If IsNull(AllTopic) Then AllTopic=0 If IsNull(AllToday) Then AllToday=0 If IsNull(AllBoard) Then AllBoard=0 End If End If Set Trs=Nothing '下属版块ID ParentStr = Sql(0,i) Set Trs = Dvbbs.Execute("SELECT Boardid FROM Dv_Board WHERE ParentID = "&Sql(0,i)) If Not (Trs.Eof And Trs.Bof) Then Do While Not Trs.Eof ParentStr = ParentStr & "," & Trs(0) Trs.Movenext Loop End If Set Trs=Nothing '最后回复信息 Set Trs=Dvbbs.Execute("Select Top 1 LastPost From Dv_Topic Where BoardID In ("&ParentStr&") Order by LastPostTime Desc") If Not (Trs.Eof And Trs.Bof) Then LastPost=Replace(Dvbbs.Replacehtml(Trs(0)&""),"'","''") Else LastPost="无$0$"&Now()&"$无$$$$" End If '更新版面数据 SLastPost = Split(LastPost,"$") If Ubound(SLastPost) < 7 Then LastPost = LastPost & "$" Dvbbs.Execute("Update [Dv_board] Set PostNum="&AllArticle&",TopicNum="&AllTopic&",TodayNum="&AllToday&",LastPost='"&Dvbbs.ChkBadWords(LastPost)&"' Where BoardID="&SQL(0,i)) End If '更新IsGroupSetting 'IsGroupSetting=SQL(7,i) 'Set Trs=Dvbbs.Execute("Select Count(*) From Dv_UserAccess Where uc_BoardID="&SQL(0,i)) 'UserAccessCount = Trs(0) 'If IsNull(UserAccessCount) Or UserAccessCount="" Then UserAccessCount=0 'If UserAccessCount>0 Then UpGroupSetting="0" 'Set Trs=Dvbbs.Execute("Select GroupID From Dv_BoardPermission Where BoardID="&SQL(0,i)) 'If Not Trs.Eof Then ' Do While Not Trs.Eof ' If UpGroupSetting="" Then ' UpGroupSetting = Trs(0) ' Else ' UpGroupSetting = UpGroupSetting & "," & Trs(0) ' End If ' Trs.MoveNext ' Loop 'End If '更新和清理固顶贴数据(固顶和区域固顶) 'Set Trs=Dvbbs.Execute("Select TopicID From Dv_Topic Where BoardID="&Rs(0)&" And IsTop In (1,2)") If Not IsNull(SQL(6,i)) And SQL(6,i)<>"" Then Set Trs=Dvbbs.Execute("Select TopicID,BoardID,IsTop From Dv_Topic Where TopicID In ("&SQL(6,i)&")") If tRs.Eof And tRs.Bof Then BoardTopStr="" Else Do While Not Trs.Eof If Trs(1)<>444 And Trs(1)<>777 And Trs(2)>0 And Trs(2)<>3 Then If BoardTopStr="" Then BoardTopStr = Trs(0) Else BoardTopStr = BoardTopStr & "," & Trs(0) End If End If Trs.MoveNext Loop End If End If Dvbbs.Execute("Update Dv_Board Set BoardTopStr='"&BoardTopStr&"' Where BoardID="&SQL(0,i)) UserAccessCount="" IsGroupSetting="" UpGroupSetting="" BoardTopStr="" ii=ii+1 'If (i mod 100) = 0 Then Response.Write "" & VbCrLf Response.Flush 'End If body="

更新论坛数据成功，"&SQL(1,i)&"共有"&AllArticle&"篇贴子，"&AllTopic&"篇主题，今日有"&AllToday&"篇帖子。

" Response.Write body Response.Flush 'Rs.MoveNext 'Loop Next Set Trs=Nothing End If body="" Response.Write "" Dvbbs.loadSetup() Dim Board Dvbbs.LoadBoardList() For Each board in Application(Dvbbs.CacheName&"_boardlist").documentElement.selectNodes("board/@boardid") Dvbbs.LoadBoardData board.text Dvbbs.LoadBoardinformation board.text Next End Sub Rem 统计下属论坛函数 2004-5-3 Dvbbs.YangZheng Sub Boardchild() Dim cBoardNum, cBoardid Dim Trs Dim Bn Dvbbs.Execute("UPDATE Dv_Board SET Child = 0") Set Rs = Dvbbs.Execute("SELECT Boardid, Rootid, ParentID, Depth, Child, ParentStr FROM Dv_Board ORDER BY Boardid DESC") If Not (Rs.Eof And Rs.Bof) Then Sql = Rs.GetRows(-1) Rs.Close:Set Rs = Nothing For Bn = 0 To Ubound(Sql,2) If Isnull(Sql(4,Bn)) And Cint(Sql(3,Bn)) > 0 Then Dvbbs.Execute("UPDATE Dv_Board SET Child = 0 WHERE Boardid = " & Sql(0,Bn)) End If If Cint(Sql(2,Bn)) = 0 And Cint(Sql(3,Bn)) = 0 Then Set Trs = Dvbbs.Execute("SELECT COUNT(*) FROM Dv_Board WHERE RootID = " & Sql(1,Bn)) Cboardnum = Trs(0) - 1 Trs.Close:Set Trs = Nothing If Isnull(Cboardnum) Or Cboardnum < 0 Then Cboardnum = 0 Dvbbs.Execute("UPDATE Dv_Board SET Child = " & Cboardnum & " WHERE Boardid = " & Sql(0,Bn)) Elseif Cint(Sql(3,Bn)) > 1 Then cBoardid = Split(Sql(5,Bn),",") For i = 1 To Ubound(cBoardid) Dvbbs.Execute("UPDATE Dv_Board SET Child = Child + 1 WHERE Boardid = " & cBoardid(i)) Next End If Next End If End Sub Sub Updateall() '主题数,帖子数,用户数,今日贴,昨日贴,总固顶,最后注册 Body = "更新总论坛数据成功。" Dim AllTopNum,PostNum,TopicNum,LastUser Dim TodayNum,UserNum, YesterdayNum,SqlStr,Sql_a If Request.Form("u1") = "1" Or Request("index")="1" Then TopicNum = GetTopicnum() If Sql_a = "" Then Sql_a = "Forum_TopicNum = " & TopicNum & "" Else Sql_a = Sql_a & ",Forum_TopicNum = " & TopicNum & "" End If If SqlStr = "" Then SqlStr = "论坛共有 " & TopicNum & " 篇主题" Else SqlStr = SqlStr & "，" & TopicNum & " 篇主题" End If End If If Request.Form("u2") = "1" Or Request("index")="1" Then PostNum = Announcenum() If Sql_a = "" Then Sql_a = "Forum_PostNum = " & PostNum & "" Else Sql_a = Sql_a & ",Forum_PostNum = " & PostNum & "" End If If SqlStr = "" Then SqlStr = "论坛共有 " & PostNum & " 篇帖子" Else SqlStr = SqlStr & "，" & PostNum & " 篇帖子" End If End If If Request.Form("u3") = "1" Or Request("index")="1" Then UserNum = Allusers() If Sql_a = "" Then Sql_a = "Forum_UserNum = " & UserNum & "" Else Sql_a = Sql_a & ",Forum_UserNum = " & UserNum & "" End If If SqlStr = "" Then SqlStr = "论坛共有 " & UserNum & " 个用户" Else SqlStr = SqlStr & "，" & UserNum & " 个用户" End If End If If Request.Form("u4") = "1" Or Request("index")="1" Then TodayNum = Alltodays() If Sql_a = "" Then Sql_a = "Forum_TodayNum = " & TodayNum & "" Else Sql_a = Sql_a & ",Forum_TodayNum = " & TodayNum & "" End If If SqlStr = "" Then SqlStr = "论坛共有 " & TodayNum & " 篇今日帖" Else SqlStr = SqlStr & "，" & TodayNum & " 篇今日帖" End If End If If Request.Form("u5") = "1" Or Request("index")="1" Then YesterdayNum = Allyesterdays() If Sql_a = "" Then Sql_a = "Forum_YesterdayNum = " & YesterdayNum & "" Else Sql_a = Sql_a & ",Forum_YesterdayNum = " & YesterdayNum & "" End If If SqlStr = "" Then SqlStr = "论坛共有 " & YesterdayNum & " 篇昨日帖" Else SqlStr = SqlStr & "，" & YesterdayNum & " 篇昨日帖" End If End If If Request.Form("u6") = "1" Or Request("index")="1" Then AllTopNum = Forum_AllTopNum() If Sql_a = "" Then Sql_a = "Forum_AllTopNum = '" & AllTopNum & "'" Else Sql_a = Sql_a & ",Forum_AllTopNum = '" & AllTopNum & "'" End If If SqlStr = "" Then SqlStr = "论坛共有 " & UBound(Split(AllTopNum, ",")) + 1 & " 个固顶主题" Else SqlStr = SqlStr & "，" & UBound(Split(AllTopNum, ",")) + 1 & " 个固顶主题" End If End If If Request.Form("u7") = "1" Or Request("index")="1" Then LastUser = Newuser() If Sql_a = "" Then Sql_a = "Forum_lastUser = '" & Dvbbs.CheckStr(Dvbbs.HtmlEncode(LastUser)) & "'" Else Sql_a = Sql_a & ",Forum_lastUser = '" & Dvbbs.CheckStr(Dvbbs.HtmlEncode(LastUser)) & "'" End If If SqlStr = "" Then SqlStr = "论坛最新加入用户为 " & LastUser & "" Else SqlStr = SqlStr & "，最新加入用户为 " & LastUser & "" End If End If Body = Body & SqlStr Body = Body & "" If Sql_a = "" Then Exit Sub Sql = "UPDATE Dv_Setup SET " & Sql_a Dvbbs.Execute(Sql) Dvbbs.Name="setup" Dvbbs.loadSetup() End sub Sub fixtopic() if not isnumeric(request.form("beginid")) then body="错误的开始参数！" exit sub End If if not isnumeric(request.form("endid")) then body="错误的结束参数！" exit sub end if if clng(request.form("beginid"))>clng(request.form("endid")) then body="开始ID应该比结束ID小！" exit sub end if dim TotalUseTable,Ers dim username,dateandtime,rootid,announceid,postuserid,lastpost,topic 'set rs=server.createobject("adodb.recordset") 'Dvbbs.Execute("update Dv_topic set PostTable='dv_bbs1'") Dim C1 C1=clng(request.form("endid"))-clng(request.form("beginid")) %>  

下面开始更新论坛帖子资料，预计本次共有<%=C1%>个帖子需要更新 0%

<% Response.Flush sql="select topicid,PostTable from Dv_topic where topicid>="&request.form("beginid")&" and topicid<="&request.form("endid") set rs=Dvbbs.Execute(sql) if rs.eof and rs.bof then body="" exit sub end if do while not rs.eof sql="select top 1 username,dateandtime,topic,Announceid,PostUserID,rootid,body,boardid from "&rs(1)&" where rootid="&rs(0)&" order by Announceid desc" set ers=Dvbbs.Execute(sql) if not (ers.eof and ers.bof) then username=Ers("username") dateandtime=Ers("dateandtime") rootid=Ers("rootid") topic=left(Ers("body"),20) Announceid=ers("Announceid") postuserid=ers("postuserid") LastPost=username & "$" & Announceid & "$" & dateandtime & "$" & replace(topic,"$","") & "$$" & postuserid & "$" & rootid & "$" & ers("BoardID") & "$" LastPost=Dvbbs.Checkstr(LastPost) Dvbbs.Execute("update [DV_topic] set LastPost='"&replace(LastPost,"'","")&"' where topicid="&rs(0)) i=i+1 'If (i mod 100) = 0 Then Response.Write "" & VbCrLf Response.Flush 'End If end if '计算回帖数 2004-8-2 Sql = "SELECT COUNT(*) FROM " & Rs(1) & " WHERE Rootid = " & Rs(0) & " AND Boardid <> 444 AND Boardid <> 777" Set Ers = Dvbbs.Execute(Sql) Dvbbs.Execute("UPDATE Dv_Topic SET Child = " & Ers(0)-1 & " WHERE Topicid = " & Rs(0) & "") Rs.Movenext loop set ers=nothing set rs=nothing Response.Write "" %> <% end sub '分论坛今日帖子 REM 修改查询所有帖子表数据 2004-8-26.Dv.Yz Function Todays(Boardid) Todays = 0 If IsSqlDataBase = 1 Then For i = 0 To Ubound(AllPostTable) Set Tmprs = Dvbbs.Execute("SELECT COUNT(Announceid) FROM " & AllPostTable(i) & " WHERE Boardid = " & Boardid & " AND DATEDIFF(day, Dateandtime, " & SqlNowString & ") = 0") Todays = Todays + Tmprs(0) Next Else For i = 0 To Ubound(AllPostTable) Set Tmprs = Dvbbs.Execute("SELECT COUNT(Announceid) FROM " & AllPostTable(i) & " WHERE Boardid = " & Boardid & " AND DATEDIFF('d', Dateandtime, " & SqlNowString & ") = 0") Todays = Todays + Tmprs(0) Next End If Set Tmprs = Nothing End Function '全部论坛今日帖子 REM 修改查询所有帖子表数据 2004-8-26.Dv.Yz Function Alltodays() Alltodays = 0 If IsSqlDataBase = 1 Then For i = 0 To Ubound(AllPostTable) Set Tmprs = Dvbbs.Execute("SELECT COUNT(Announceid) FROM " & AllPostTable(i) & " WHERE NOT Boardid IN (444,777) AND DATEDIFF(day, Dateandtime, " & SqlNowString & ") = 0") Alltodays = Alltodays + Tmprs(0) Next Else For i = 0 To Ubound(AllPostTable) Set Tmprs = Dvbbs.Execute("SELECT COUNT(Announceid) FROM " & AllPostTable(i) & " WHERE NOT Boardid IN (444,777) AND DATEDIFF('d', Dateandtime, " & SqlNowString & ") = 0") Alltodays = Alltodays + Tmprs(0) Next End If Set Tmprs = Nothing End Function '论坛昨天的帖子 2004-8-31.Dv.Yz Function Allyesterdays() Allyesterdays = 0 If IsSqlDataBase = 1 Then For i = 0 To Ubound(AllPostTable) Set Tmprs = Dvbbs.Execute("SELECT COUNT(Announceid) FROM " & AllPostTable(i) & " WHERE NOT Boardid IN (444,777) AND DATEDIFF(day, Dateandtime, " & SqlNowString & ") = 1") Allyesterdays = Allyesterdays + Tmprs(0) Next Else For i = 0 To Ubound(AllPostTable) Set Tmprs = Dvbbs.Execute("SELECT COUNT(Announceid) FROM " & AllPostTable(i) & " WHERE NOT Boardid IN (444,777) AND DATEDIFF('d', Dateandtime, " & SqlNowString & ") = 1") Allyesterdays = Allyesterdays + Tmprs(0) Next End If Set Tmprs = Nothing End Function '所有注册用户数量 function allusers() allusers=Dvbbs.Execute("Select count(userid) from [Dv_user]")(0) If IsNull(allusers) Then allusers=0 End function '最新注册用户 Function newuser() sql="Select top 1 username from [Dv_user] order by userid desc" Set tmprs=Dvbbs.Execute(sql) If tmprs.eof and tmprs.bof Then newuser="没有会员" Else newuser=tmprs("username") End If Set tmprs=Nothing End function '所有论坛帖子 function AnnounceNum() dim AnnNum AnnNum=0 AnnounceNum=0 For i=0 to ubound(AllPostTable) AnnNum=Dvbbs.Execute("Select Count(announceID) from "&AllPostTable(i)&" where not boardid in (444,777)")(0) if isnull(AnnNum) then AnnNum=0 AnnounceNum=AnnounceNum + AnnNum next end function '分论坛帖子 function BoardAnnounceNum(boardid) dim BoardAnnNum BoardAnnNum=0 BoardAnnounceNum=0 For i=0 to ubound(AllPostTable) BoardAnnNum=Dvbbs.Execute("Select Count(announceID) from "&AllPostTable(i)&" where boardid="&boardid)(0) if isnull(BoardAnnNum) then BoardAnnNum=0 BoardAnnounceNum=BoardAnnounceNum + BoardAnnNum next end function '所有论坛主题 function GetTopicnum() Dim TopicNum TopicNum=Dvbbs.Execute("Select Count(topicid) from DV_topic where not boardid in (444,777)")(0) if isnull(TopicNum) then TopicNum=0 GetTopicnum = TopicNum end function '分论坛主题 function BoardTopicNum(boardid) BoardTopicNum=Dvbbs.Execute("Select Count(topicid) from [Dv_topic] where boardid="&boardid)(0) if isnull(BoardTopicNum) then BoardTopicNum=0 end function '论坛总固顶主题数 function Forum_AllTopNum() Set tmprs=Dvbbs.Execute("Select TopicID From Dv_Topic Where Not BoardID In (444,777) And IsTop=3") If tmprs.eof and tmprs.bof Then Forum_AllTopNum="" Else Do While Not tmprs.Eof If Forum_AllTopNum="" Then Forum_AllTopNum = tmprs(0) Else Forum_AllTopNum = Forum_AllTopNum & "," & tmprs(0) End If tmprs.MoveNext Loop End If Set tmprs=Nothing end function '更新用户发贴数 sub updateTopic() if not isnumeric(request.form("beginid")) then body="" exit sub end if if not isnumeric(request.form("endid")) then body="" exit sub end if if clng(request.form("beginid"))>clng(request.form("endid")) then body="" exit sub end if Dim C1 C1=clng(request.form("endid"))-clng(request.form("beginid")) %>

已经到记录的最尾端，请结束更新！
继续修复帖子(修复指定范围内帖子的最后回复数据)
开始的ID号	" size=5> 帖子主题ID，可以填写您想从哪一个ID号开始进行修复
结束的ID号	" size=5> 将更新开始到结束ID之间的帖子数据，之间的数值最好不要选择过大
错误的开始参数！
错误的结束参数！
开始ID应该比结束ID小！

 

下面开始更新论坛用户资料，预计本次共有<%=C1%>个用户需要更新 0%

<% Response.Flush dim userTopic,UserPost sql="select userid,username from [Dv_user] where userid>="&request.form("beginid")&" and userid<="&request.form("endid") set rs=Dvbbs.Execute(sql) if rs.eof and rs.bof then body="" exit sub end if do while not rs.eof UserTopic=UserallTopicnum(rs(0)) userPost=Userallnum(rs(0)) Dvbbs.Execute("update [Dv_user] set UserPost="&userPost&",UserTopic="&UserTopic&" where userid="&rs(0)) i=i+1 'If (i mod 100) = 0 Then Response.Write "" & VbCrLf Response.Flush 'End If rs.movenext loop set rs=nothing Response.Write "" %> <% end sub '更新用户金钱/经验/魅力 sub updatemoney() if not isnumeric(request.form("beginid")) then body="" exit sub end if if not isnumeric(request.form("endid")) then body="" exit sub end if if clng(request.form("beginid"))>clng(request.form("endid")) then body="" exit sub end if dim userTopic,userReply,userWealth dim userEP,userCP Dim C1 C1=clng(request.form("endid"))-clng(request.form("beginid")) %>

已经到记录的最尾端，请结束更新！
继续更新用户数据
重新计算用户发贴	执行本操作将按照当前论坛数据库发贴重新计算所有用户发表帖子数量。
开始用户ID	" size=10> 用户ID，可以填写您想从哪一个ID号开始进行修复
结束用户ID	" size=10> 将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大
错误的开始参数！
错误的结束参数！
开始ID应该比结束ID小！

 

下面开始更新论坛用户资料，预计本次共有<%=C1%>个用户需要更新 0%

<% Response.Flush sql="select userlogins,userid,userpost,usertopic,username from [Dv_user] where userid>="&request.form("beginid")&" and userid<="&request.form("endid") set rs=Dvbbs.Execute(sql) 'shinzeal加入自动提示完成 if rs.eof and rs.bof then body="" exit sub end if do while not rs.eof 'userTopic=UserTopicNum(rs(1)) 'userreply=UserReplyNum(rs(1)) userwealth=rs(0)*Dvbbs.Forum_user(4) + rs("usertopic")*Dvbbs.Forum_user(1) + (rs("userpost")-rs("usertopic"))*Dvbbs.Forum_user(2) userEP=rs(0)*Dvbbs.Forum_user(9) + rs("usertopic")*Dvbbs.Forum_user(6) + (rs("userpost")-rs("usertopic"))*Dvbbs.Forum_user(7) userCP=rs(0)*Dvbbs.Forum_user(14) + rs("usertopic")*Dvbbs.Forum_user(11) + (rs("userpost")-rs("usertopic"))*Dvbbs.Forum_user(12) if isnull(UserWealth) or not isnumeric(userwealth) then userwealth=0 if isnull(Userep) or not isnumeric(userep) then userep=0 if isnull(Usercp) or not isnumeric(usercp) then usercp=0 Dvbbs.Execute("update [Dv_user] set userWealth="&userWealth&",userep="&userep&",usercp="&usercp&" where userid="&rs(1)) i=i+1 'If (i mod 100) = 0 Then Response.Write "" & VbCrLf Response.Flush 'End If rs.movenext loop set rs=nothing Response.Write "" %> <% end sub '更新用户等级 sub updategrade() if not isnumeric(request.form("beginid")) then body="" exit sub end if if not isnumeric(request.form("endid")) then body="" exit sub end if if clng(request.form("beginid"))>clng(request.form("endid")) then body="" exit sub end if Dim oldMinArticle,Rss oldMinArticle=0 Set Rss=Dvbbs.Execute("Select UserID From [Dv_User] Where UserID>="&Request.Form("beginid")) If Rss.Eof And Rss.Bof Then body="" Exit Sub End If Rss.Close SQL = "Select UserGroupID From Dv_UserGroups Where Not ParentGID In (0,3)" Set Rss = Dvbbs.Execute(SQL) SQL = Rss.GetString(,, "", ",", "") Rss.close Set Rss = Nothing SQL = SQL & "1" Set Rs=Dvbbs.Execute("Select * From Dv_UserGroups Where ParentGID=3 Order By MinArticle Desc") Do While Not Rs.Eof Dvbbs.Execute("Update [Dv_User] Set UserClass='"&Rs("UserTitle")&"',TitlePic='"&Rs("GroupPic")&"',UserGroupID="&Rs("UserGroupID")&" Where (Not UserGroupID In ("&SQL&")) And (UserID>="&Request.Form("beginid")&" And UserID<="&Request.Form("endid")&") And (UserPost<"&oldMinArticle&" And UserPost>="&Rs("MinArticle")&" )") oldMinArticle=Rs("MinArticle") Rs.MoveNext Loop Rs.Close Set Rs=Nothing %> <% end sub '用户所有主题数 function UserTopicNum(userid) dim topicnum topicnum=0 usertopicnum=0 set tmprs=Dvbbs.Execute("select count(*) from dv_topic where not boardid in (444,777) and PostUserID="&userid) TopicNum=tmprs(0) if isnull(TopicNum) then TopicNum=0 UserTopicNum=UserTopicNum + TopicNum set tmprs=nothing end function '用户所有回复数 Function UserReplyNum(userid) dim replynum replynum=0 userreplynum=0 For i=0 to ubound(AllPostTable) set tmprs=Dvbbs.Execute("select count(announceid) from "&AllPostTable(i)&" where not boardid in (444,777) and ParentID>0 and PostUserID="&userid) replyNum=tmprs(0) if isnull(replyNum) then replyNum=0 UserReplyNum=UserReplyNum + replynum next set tmprs=nothing end function '用户所有帖子 function Userallnum(userid) dim allnum allnum=0 userallnum=0 For i=0 to ubound(AllPostTable) set tmprs=Dvbbs.Execute("select count(announceid) from "&AllPostTable(i)&" where not boardid in (444,777) and PostUserID="&userid) allnum=tmprs(0) if isnull(allnum) then allnum=0 userallnum=userallnum+allnum Next Set tmprs=nothing End function function UserallTopicnum(userid) dim allnum allnum=0 UserallTopicnum=0 For i=0 to ubound(AllPostTable) set tmprs=Dvbbs.Execute("select count(*) from Dv_Topic where not boardid in (444,777) and PostUserID="&userid) allnum=tmprs(0) if isnull(allnum) then allnum=0 UserallTopicnum=UserallTopicnum+allnum Next Set tmprs=nothing End function Sub fixbbs() Dim killhtml,updatedate updatedate=Request("updatedate") killhtml=Request("killhtml") If Not IsNumeric(request.form("beginid")) Then body="" Exit Sub End If If Not IsNumeric(request.form("endid")) Then body="" Exit Sub End If If CLng(request.form("beginid"))>clng(request.form("endid")) Then body="" Exit Sub End If Dim C1, D1 C1 = clng(request.form("endid"))-clng(request.form("beginid")) D1 = Clng(Request.Form("beginid")) %>

已经到记录的最尾端，请结束更新！
继续更新用户数据
更新用户金钱/经验/魅力	执行本操作将按照当前论坛数据库用户的发贴数量和论坛的相关设置重新计算用户的金钱/经验/魅力，本操作也将重新计算贵宾、版主、总版主的数据 注意：不推荐用户进行本操作，本操作在数据很多的时候请尽量不要使用，并且本操作对各个版面删除帖子等所扣相应分值不做运算，只是按照发贴和总的论坛分值设置进行运算，请大家慎重操作，而且本项操作将重置用户因为奖励、惩罚等原因管理员对用户分值的修改。
开始用户ID	" size=10> 用户ID，可以填写您想从哪一个ID号开始进行修复
结束用户ID	" size=10> 将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大
错误的开始参数！
错误的结束参数！
开始ID应该比结束ID小！
已经到记录的最尾端，请结束更新！
继续更新用户数据
更新用户等级	执行本操作将按照当前论坛数据库用户发贴数量和论坛的等级设置重新计算用户等级，本操作不影响等级为贵宾、版主、总版主的数据。
开始用户ID	" size=10> 用户ID，可以填写您想从哪一个ID号开始进行修复
结束用户ID	" size=10> 将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大
错误的开始参数！
错误的结束参数！
开始ID应该比结束ID小！

 

下面开始更新论坛帖子资料，预计本次共有<%=C1%>个帖子需要更新 0%

<% Response.Flush Dim TotalUseTable,Ers,SQL1 Dim vBody,isagree,re Dim Maxid Set Rs=Dvbbs.Execute("select Max(topicid) from dv_topic") Maxid=Rs(0) Set Rs=Nothing If Maxid< CLng(request.form("beginid")) Then body="" set rs=nothing Exit Sub End If Sql = "SELECT Topicid, PostTable FROM Dv_Topic WHERE Topicid >= " & CLng(Request.Form("beginid")) & " AND Topicid <= " & CLng(Request.Form("endid")) & " ORDER BY TopicID" Set Rs=Dvbbs.Execute(sql) Set ERs=server.createobject("adodb.recordset") Do While Not rs.eof SQl1 ="select Body,isagree,Ubblist,topic,DateAndTime,Announceid from "&Rs(1)&" where Rootid="&CLng(Rs(0))&"" Ers.open SQL1,Conn,1,3 If Not(eRs.eof OR ers.BOF) Then Do While Not ers.eof vbody=eRs(0) isagree=eRs(1) If IsNull(isagree) Then isagree="" If isagree <>"" Then isagree=Replace(isagree,"[isubb]","") Else isagree=ers(1) End If If killhtml="1" Then eRs(0)=vbody End If ers(1)= isagree&"" If IsDate(updatedate) And IsDate(ers(4)) Then If updatedate > ers(4) Then ers(2)=Ubblist(vbody) Else If killhtml="1" Then Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="
" vbody=re.Replace(vbody,"[br]") re.Pattern="<(.[^>]*)>" vbody=re.Replace(vbody,"") Set re=Nothing End If ers(2)=UbblistOLD(vbody) End If Else ers(2)=UbblistOLD(vbody) End If ers.update Response.Write "" Response.Flush eRs.movenext Loop End If ERs.close i = CLng(Rs(0)) - D1 + 1 '修正i为相对位置值 2005-12-3 Dv.Yz 'If (i mod 100) = 0 Then Response.Write "" & VbCrLf Response.Flush 'End If Rs.movenext Loop Set ers=nothing set rs=nothing Response.Write "" %> <% End Sub '清空在线用户 2004-10-11 Dv.Yz Sub Delallonline() Sql = "DELETE FROM Dv_Online" Dvbbs.Execute(Sql) Body = "

已经到记录的最尾端，请结束更新！
继续修复帖子(修复指定范围贴子UBB标签)
开始的ID号	" size=5> 帖子主题ID，可以填写您想从哪一个ID号开始进行修复
结束的ID号	" size=5> 将更新开始到结束ID之间的帖子数据，之间的数值最好不要选择过大
新老贴的标识日期	(格式：YYYY-M-D) 就是论坛升级到v7.0的日期，如果不填写，一律按老贴处理
去掉贴子中的HTML标记	checked <% End If %> > 是 checked <% End If %> > 否   选是的话，贴子中的HTML标记将会自动被清除，有利于减少数据库的大小，但是会失去原来的HTML效果。
清空在线用户数据成功，请 更新服务器缓存 。" End Sub '更新论坛收藏夹 2005-11-30 Dv.Yz Sub Updatebm() Dim bi Set Rs = Dvbbs.Execute("SELECT Id, Url, UserName FROM Dv_BookMark ORDER BY Id") If Not (Rs.Eof And Rs.Bof) Then Sql = Rs.GetRows(-1) Set Rs = Nothing Dim Url, RootID, BoardID, Topic Dim C1 C1 = Ubound(Sql,2) + 1 %> 下面开始更新收藏夹资料，预计本次共有<%=C1%>个收藏主题需要更新 0% <% For bi = 0 To Ubound(Sql,2) Set Rs = Dvbbs.Execute("SELECT UserName From Dv_User WHERE UserName = '" & Sql(2,bi) & "'") If Rs.Eof And Rs.Bof Then Dvbbs.Execute("DELETE FROM Dv_BookMark WHERE Id = " & Sql(0,bi)) Response.Write "" Response.Flush Else Set Rs = Nothing RootID = Split(Split(Sql(1,bi),"&")(1),"=")(1) If Isnumeric(RootID) Then RootID = Clng(Rootid) Else RootID = 0 End If Set Rs = Dvbbs.Execute("SELECT BoardID, TopicID, Title FROM Dv_Topic WHERE NOT BoardID IN (444,777) AND TopicID = " & RootID) If Rs.Eof And Rs.Bof Then Dvbbs.Execute("DELETE FROM Dv_BookMark WHERE Id = " & Sql(0,bi)) Response.Write "" Response.Flush Else Boardid = Rs(0) RootID = Rs(1) Topic = Rs(2) Topic = Left(Dvbbs.checkStr(trim(topic)),100) Url = "dispbbs.asp?boardid=" & Boardid & "&id=" & RootID Dvbbs.Execute("UPDATE Dv_BookMark SET Url = '" & Url & "', Topic = '" & Topic & "' WHERE Id = " & Sql(0,bi)) Response.Write "" Response.Flush End If End If Response.Write "" & VbCrLf Response.Flush Next End If Response.Write "" End Sub %>